home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / dev / links.dxr / 00005_links.ls < prev    next >
Encoding:
Text File  |  2002-01-09  |  1.2 KB  |  31 lines
  1. on enterFrame
  2.   global www_url_lijst, www_chapter_lijst, www_tekst_lijst, vertaaldehoofdstuktitels, hoofdstuk
  3.   repeat with chapteller = 1 to 8
  4.     member("www" & chapteller).text = EMPTY
  5.     tijdelijkeurlopslag = list()
  6.     regelteller = 0
  7.     buffereven = the itemDelimiter
  8.     repeat with tellertje = 1 to www_url_lijst.count
  9.       stringetje = chapteller & EMPTY
  10.       if www_chapter_lijst[tellertje] = stringetje then
  11.         regelteller = regelteller + 1
  12.         member("www" & chapteller).text = member("www" & chapteller).text & www_tekst_lijst[tellertje] & RETURN
  13.         tijdelijkeurlopslag[regelteller] = www_url_lijst[tellertje]
  14.       end if
  15.     end repeat
  16.     repeat with tellertje = 1 to regelteller
  17.       member("www" & chapteller).line[tellertje].hyperlink = tijdelijkeurlopslag[tellertje]
  18.     end repeat
  19.     if regelteller > 0 then
  20.       sprite(30 + chapteller).blend = 50
  21.       sprite(40 + chapteller).blend = 50
  22.     else
  23.       sprite(30 + chapteller).blend = 0
  24.       sprite(40 + chapteller).blend = 0
  25.     end if
  26.     pos = hoofdstuk.getPos(chapteller)
  27.     member("l" & chapteller).text = vertaaldehoofdstuktitels[pos]
  28.   end repeat
  29.   the itemDelimiter = buffereven
  30. end
  31.